home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / ansi_130.zip / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-03  |  2KB  |  64 lines
  1. Program Demo;
  2.  
  3. Uses TpCrt, PingAnsi, Musica;
  4.  
  5. Var
  6.   f             : File;
  7.   buffer, b     : Array[0..$3fff] Of Char;
  8.   i, j          : Word;
  9.   Ch            : Char;
  10.   Timer         : LongInt Absolute 0 : $46c;
  11.   t1, t2, t3, t4 : LongInt;
  12.   aa, bb, cc, c1, dd, ee, ff : String[80];
  13.  
  14.  
  15. Begin
  16.   WriteLn('I am here');
  17.   Assign(f, 'shuttle2.ans');
  18.   SetTextBuf(Ansi, b);
  19.   Reset(f, 1);
  20.   BlockRead(f, buffer, SizeOf(buffer), j);
  21.   Close(f);
  22.   TextAttr := 7;
  23.   ClrScr;
  24.   If GrabTimer then {};
  25.   NoSound;
  26.   Play('MBT100O3L8GFE-FGGGP8FFF4');
  27.   Play('GB-B-4GFE-FGGG GFFGFE-.P64');
  28.   t1 := Timer;
  29.   For i := 0 To j - 1 Do Write(Ansi, buffer[i]);
  30.   t2 := Timer;
  31.   t3 := Timer;
  32.   For i := 0 To j - 1 Do AnsiWrite(buffer[i]);
  33.   t4 := Timer;
  34.   Write(Ansi, #27'[1mPress a key: ');
  35.   Ch := readkey;
  36.   ReleaseTimer;
  37.   PurgePlayBuffer;
  38.   Write(Ansi, #27'[0m'#27'[2J');
  39.   WriteLn(Ansi, 'Time for Write(Ansi: ', t2 - t1:8, ' tics ');
  40.   WriteLn(Ansi, 'Time for AnsiWrite:  ', t4 - t3:8, ' tics');
  41.   WriteLn(Ansi);
  42.   Write(Ansi, #27'[1;33mThis '#27'[32mis '#27, '[ma '#27'[42mTest ');
  43.   WriteLn(Ansi,#27'[0m');
  44.    aa := 'o3D..o2GABo3CD..o2Gp8Gp8';
  45.    bb := 'o3E..CDEF#G..o2Gp8Gp8';
  46.    cc := 'o3C..DCo2BAB..o3Co2BAGF#..GABGBA...p4';
  47.    c1 := 'o3C..DCo2BAB..o3Co2BAGF#..GABGA....p4';
  48.    dd := 'o3C..DCo2BAB..o3Co2BAGA..BAGF#G....p4';
  49.    ee := 'mlo3B..GABGA..DEF#DG..EF#GDC#..o2Bo3C#o2Ap8ABo3C#DEF#G..' +
  50.          'F#..E..F#..o2A..o3C#..D....p4mn';
  51.    ff := 'D..o2GF#Gp8o3E..o2GF#Gp8o3D..C..o2B..AGF#GAp8DEF#GABo3C..' +
  52.          'o2B..A..Bo3Do2G..F#..G....p4';
  53.    Write('J.S.Bach from Little notebook for Anna Magdalena');
  54.    PLAY ('mbmnt150l8');
  55.    PLAY (aa);PLAY (bb);PLAY (C1);
  56.    PLAY (aa);PLAY (bb);PLAY (DD);
  57.    PLAY (aa);PLAY (bb);PLAY (CC);
  58.    PLAY (aa);PLAY (bb);PLAY (dd);
  59.    PLAY (EE);PLAY (FF);
  60.    PLAY (aa);PLAY (bb);PLAY (C1);
  61.    PLAY (aa);PLAY (bb);
  62.    PLAY (copy(DD, 1, length(dd)-2) + '. ');
  63. End.
  64.